use lib qw(D:\Data\Perl\devel\TemplateEnginePrptotype\lib);

use Template5;
use Template5::Util;
#use Devel::Refcount qw( refcount );

#------------------------------------------------------------------------------- 
sub test
{
	my $root = undef;

	{
		my @arr = ();
		my $templatedoc = Template5::load(qw(D:\Data\Perl\devel\TemplateEnginePrptotype\data\testexprblocks.html));
		$templatedoc->compile(qw(D:\Data\Perl\devel\TemplateEnginePrptotype\data\testexprblocks))
		#my $root = $templatedoc->get_root();
		
		#@childs = $root->listChild();
		#print scalar(@childs);
		
		#print $root->{'htmlnode'}->as_HTML();
	};
};

test();

